home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
patches
/
ami301c.zip
/
QKHOUSE.SM$
/
QKHOUSE.SMM
Wrap
INI File
|
1993-06-01
|
22KB
|
1,916 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Calculate monthly mortgage payment and total cost of a house.
738974909
32
732570070
793
8
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Arial
200
0
16384
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
16
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[lay]
Standard
513
[rght]
15840
12240
1
576
1440
1
1440
504
0
1
0
1
0
2
1
576
11736
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
Peyton McMansu
Lotus WPD
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
@Outline2@
@Subhead@' Defines
@Outline2@Define NumDec 2
Define Formula "@PMT({Price},{Interest}/12,{Years}*12)"
Define ErrorMessage "The ltsce01.dll could not be loaded. Please copy the dll to the Ami Pro directory."
Define GetPrefix() GetGlobalVar$("Prefix")
Define GetSuffix() GetGlobalVar$("Suffix")
Declare FontDlg(Action, Hdlg, id)
Declare CellEngine(action)
Declare GetMarkValue(Bookmarkname)
Declare StrPath(Filename)
Declare GetFormats(Action)
Declare Report()
Define Descript "Enter the following data to calculate the monthly and total mortgage payments."
@Subhead@Function Main(Principal, Interest, Term)
DefStr hInstance;
Mac = GetRunningMacroFile$()
MacPath = StrPath(Mac)
FontDlg(1,0,0)
If 0 != CellEngine(1)
Else
' Engine did not start
Message(ErrorMessage)
Return -1
Endif
GetFormats(1) ' International function
SetDlgCallBack(0,"{Mac}!InitDlg")
@Outline3@DlgKeyInterrupt(112, "{mac}!DisplayHelp")
@Outline3@
FillEdit(1001, Descript)
Bitmap = "{Macpath}qkhouse.bmt"
FillEdit(1003,Bitmap)
If GetOpenFileCount() <;> 0
If GetBookMarkCount() <;> 0
' If these bookmarks are present in the open doc, use the values in the mark
FillEdit(8000,GetMarkValue("Principal"))
FillEdit(8001,GetMarkValue("Term"))
FillEdit(8002,GetMarkValue("Interest"))
Endif
<+@>Endif
<+@>
SetDlgCallBack(8000,"{Mac}!DataChange")
SetDlgCallBack(8001,"{Mac}!DataChange")
SetDlgCallBack(8002,"{Mac}!DataChange")
SetDlgCallBack(21,"{Mac}!DataChange")
Box = DialogBox(".","Deprec")
MontlyPayment = GetDialogField$(8010)
' NEW STUFF 4-27 MLO -
IF box = 3
Report() 'function to blow stuff into _Mortgage.sty
Endif
FontDlg(4,0,0) ' Destroy the font
CellEngine(0) ' Shut down the engine
GetFormats(0) ' Free the international stuff
End function
@Subhead@Function DataChange(Hdlg, id, value)
IgnoreKeyBoard(2)
DefStr Allowance;
Price = GetDlgItemText(hDlg, 8000)*1
Years = GetDlgItemText(hDlg, 8001)*1
Interest = (GetDlgItemText(Hdlg, 8002)) / 100
Answer = CellEngine(Formula)
NumMonths = 12 * Years
Total = FormatNum$(GetPrefix(),GetSuffix(),NumDec,NumMonths * Answer)
Answer = FormatNum$(GetPrefix(),GetSuffix(),NumDec,Answer)
SetDlgItemText(hDlg, 8010, Answer)
SetDlgItemText(hDlg, 8011, Total)
End Function
@Subhead@Function InitDlg(hDlg, id, value)
' use the fontdlg function to display the following control with a small font
IgnoreKeyBoard(2)
HourGlass(on)
FontDlg(3,Hdlg, 1000)
FontDlg(3, Hdlg, 1001)
FontDlg(3, Hdlg, 1004)
FontDlg(3, Hdlg, 1005)
FontDlg(3, Hdlg, 1006)
FontDlg(3, Hdlg, 8000)
FontDlg(3, Hdlg, 8001)
FontDlg(3, Hdlg, 8002)
FontDlg(3, Hdlg, 21)
FontDlg(3, Hdlg, 1007)
FontDlg(3, Hdlg, 1008)
FontDlg(3, Hdlg, 8010)
FontDlg(3, Hdlg, 8011)
HourGlass(off)
End Function
@Subhead@function DisplayHelp()
@Outline2@' two defines needed for help. The help name and panel number are defined above
@Outline2@define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
@Outline2@define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline2@prohWnd = FindWindowa("AmiProWndA", 0)
@Outline2@helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
@Outline2@PanelNum= 25
@Outline2@WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
@Outline2@end function
@Subhead@
@Subhead@function strpath(filename)
defstr char;
Length = len(FileName)
WHILE "\" != Assign(&Char, MID$(FileName, Length, 1))
Length = Length - 1
WEND
InFileName = Right$(FileName, (len(FileName) - Length))
InDir = Left$(FileName, Length - 1)
if right$(indir, 1) <<<;> "\"
indir = strcat$(indir, "\")
endif
return indir
end function
@Subhead@<:f,BArial,>Function GetFormats<:f><:f,BArial,>(Action)
<:f,BArial,>iCurrency = GetProfileString$("Intl","iCurrency","Win.ini")
currency = GetProfileString$("Intl","sCurrency","Win.ini")
<:f,BArial,>AllocGlobalVar("Prefix",1)
<:f,BArial,>AllocGlobalVar("Suffix",1)<:f>
<:f,BArial,>
<:f,BArial,>Switch Action
<:f,BArial,> Case 1 ' turn this on
<:f,BArial,> Switch iCurrency
<:f,BArial,> Case 0
<:f,BArial,> Prefix = Currency<:f>
<:f,BArial,> Suffix = ""
<:f,BArial,> Case 1
<:f,BArial,> Prefix = ""
<:f,BArial,> Suffix = Currency<:f>
<:f,BArial,> Case 2
<:f,BArial,> Prefix = StrCat$(Currency," ")
<:f,BArial,> Suffix = ""
<:f,BArial,> Case 3
<:f,BArial,> Prefix = ""
<:f,BArial,> Suffix = StrCat$(" ",Currency)
<:f,BArial,> endSwitch
<:f,BArial,> SetGlobalVar("Suffix",Suffix)
<:f,BArial,> SetGlobalVar("Prefix",Prefix)
<:f,BArial,>
<:f,BArial,> Case 0 ' free globals
<:f,BArial,> FreeGlobalVar("Suffix")
<:f,BArial,> FreeGlobalVar("Prefix")
<:f,BArial,>
<:f,BArial,>EndSwitch
<:f,BArial,>End Function
<:p<* >>
@Subhead@<:f,BArial,>
@Subhead@<:f,BArial,>
@Subhead@Function CellEngine(Action)
'Available Actions
' 1 Start the engine and allocate globalvar
' 2 Return the handle to the instance of the sheet
' 0 Shut everything down
' Default Expect a formula and return an answer
' these defines may be useful at the beginning of your macro
Define StartEngine 1
Define GetInstance 2
Define CloseEngine 0
Define CECREATEINSTANCE(LPHANDLE) DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
Define CEDESTROYINSTANCE(HANDLE) DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
Define CECALCNOW(HINSTANCE, lpFormula, lpOutPut) DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
DefStr hInstance, Answer, Var;
Mac = GetRunningMacroFile$()
GlobalInstance = StrCat$(Mac,"hIstance")
AmiDir = GetAmiDirectory$()
Switch Action
Case 1
' start the engine
LibId = DLLLoadLib("{AmiDir}LTSCE01.DLL","CECreateInstance","HO")
If LibId = 0
Message("LTSCE01.DLL not found. Copy the dll to your windows directory")
Return -1;
Endif
RetVal = CECREATEINSTANCE(&hInstance)
AllocGlobalVar("{GlobalInstance}",1)
AllocGlobalVar("{Mac}LibId",1)
SetGlobalVar("{Mac}Libid",LibId)
SetGlobalVar("{GlobalInstance}",hInstance)
Return hInstance;
Break;
Case 2
' return the handle to the instance of the sheet
AllocGlobalVar("{GlobalInstance}",1)
hInstance = GetGlobalVar$("{GlobalInstance}")
Return hInstance;
Break;
Case 0
' destroy the instance of the sheet and free the global var and libid
AllocGlobalVar("{GlobalInstance}",1)
AllocGlobalVar("{Mac}LibId",1)
hInstance = GetGlobalVar$("{GlobalInstance}")
LibId = GetGlobalVar$("{Mac}LibId")
If hInstance
CEDestroyInstance(hInstance)
DllFreeLib(Libid)
Endif
FreeGlobalVar("{GlobalInstance}")
FreeGlobalVar("{Mac}LibId")
Break;
Default
' Calculate the formula and return the answer
AllocGlobalVar("{GlobalInstance}",1)
hInstance = GetGlobalVar$("{GlobalInstance}")
CECalcNow(hInstance,"{Action}",&Answer)
Return Answer;
Break;
EndSwitch
End Function
@Subhead@
@Subhead@Function FontDlg(Action, Hdlg, id)
' 1 Create a font and allocvar
' 2 Return the handle of the create font
' 3 Set the id specified to the font
' 4 Freeglobalvar and delete created object
@Outline2@define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@
@Outline2@
Switch Action
Case 1 ' Create the font and store it
@Outline2@ Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
AllocGlobalVar("FontHandle",1)
If Font
SetGlobalVar("FontHandle",Font)
Return Font
Else
Return 0; ' no font
Endif
Break;
Case 2 ' Return the handle to the font
Handle = GetGlobalVar$("FontHandle")
If Handle
Return Handle
Else
Return 0
Endif
Case 3 ' Set the id to the font
Handle = GetGlobalVar$("FontHandle")
If Handle
IdControl = GetDlgITem(Hdlg, id)
SendMessageDlg(idControl, 0x30, Handle, 0)
Return 1
Else
Return 0
Endif
Break;
Case 4 ' Delete the font and clear the var
Handle = GetGlobalVar$("FontHandle")
If Handle
DeleteObjectDLG(Handle)
Stat = 1
Else
Stat = 0
Endif
FreeGlobalVar("FontHandle")
Return Stat
Default
Message("Fontdlg received an invalid parameter {Action}")
EndSwitch
End Function
@Subhead@Function GetMarkValue(Name)
' This retrieves a value from the bookmark name and returns the value
' If the bookmark does not exit, a "" is returned
If Name = ""
Return Name
Endif
Exist = EvalField("If Defined {Name} {Name} Else 0")
If Exist
Value= EvalField("{Name}")
If -1 != Strchr(1,Value, "<;>")
If -1 = Assign(&Value, StrField$(Value, 2, "<;>"))
Endif
Endif
Else
Value = ""
Endif
Return Value;
End Function
<:f240,2Times New Roman,0,0,0><+"><+!>Function Report()<-"><:f><-!> 'added by mlo
Years = GetDialogField$(8001) * 1
MortgagePrice = GetDialogField$(8000) * 1
InterestRate = GetDialogField$(8002)
MonthlyPayment = GetDialogField$(8010) * 1
'MonthlyPayment = FormatNum$("","",2,MonthlyPayment) 'strip off the dollar sign for the table
New("_Mortgag.sty",1,0)
MarkBookMark("Years",4002)
Type(Years)
MarkBookMark("MA",4002)
type(MortgagePrice)
MarkBookMark("IR",4002)
type(InterestRate)
MarkBookMark("PMT",4002)
type(MonthlyPayment)
type("<[>DOWN]") 'get out of the table cell so that it will be added to the total
End Function
DIALOG Deprec
-2134376448 16 58 30 165 107 "" "AmiDialog" "Calculate Mortgage Payment"
FONT 8 "Helv"
56 27 38 12 8000 1350631424 "edit" "" 0
56 41 38 12 8001 1350631424 "edit" "" 0
56 55 30 12 8002 1350631424 "edit" "" 0
120 5 40 14 1 1342373889 "button" "Done" 0
38 80 44 8 8010 1342177282 "static" "" 0
5 30 49 8 1004 1342177280 "static" "Mortgage amount:" 0
5 44 48 8 1005 1342177280 "static" "Number of years:" 0
5 58 40 8 1006 1342177280 "static" "Interest rate:" 0
5 5 111 21 1001 1342177280 "static" "" 0
5 69 82 33 20 1342308359 "button" "Payments" 0
88 57 6 10 1000 1342177280 "static" "%" 0
100 46 55 49 1003 1342177290 "static" "filename.bmt" 0
38 91 44 8 8011 1342177282 "static" "" 0
7 80 22 10 1007 1342177280 "static" "Monthly:" 0
7 91 22 10 1008 1342177280 "static" "Total:" 0
120 21 40 14 3 1342373888 "button" "Report" 0
END DIALOG
>
[Embedded]
00015552
>
[macsum] 11
Main 0 3 7 20
DataChange 905 3 8 73
InitDlg 1324 3 1 87
DisplayHelp 1697 0 4 110
strpath 1882 1 5 125
GetFormats 2203 1 5 140
CellEngine 2772 1 9 179
FontDlg 3696 3 5 251
GetMarkValue 4542 1 3 310
Report 4847 0 5 341
Deprec 5144 0 -1 372
[macse]
14 Main
0 802
13
8 5
16 StrPath "{5}"
13
8 6
16 FontDlg 1 0 0
5 0
16 CellEngine 1
13
18 1
11 00000128
10 00000232
0 3 "The ltsce01.dll could not be loaded. Please copy the dll to the Ami Pro directory."
5 -1
15
9
16 GetFormats 1
0 41 0 "{5}!InitDlg"
0 47 112 "{5}!DisplayHelp"
0 31 1001 "Enter the following data to calculate the monthly and total mortgage payments."
7 "{6}qkhouse.bmt"
8 7
0 31 1003 "{7}"
0 1050
13
5 0
18 3
11 00000643
0 1039
13
5 0
18 3
11 00000643
16 GetMarkValue "Principal"
13
0 31 8000 [X]
16 GetMarkValue "Term"
13
0 31 8001 [X]
16 GetMarkValue "Interest"
13
0 31 8002 [X]
0 41 8000 "{5}!DataChange"
0 41 8001 "{5}!DataChange"
0 41 8002 "{5}!DataChange"
0 41 21 "{5}!DataChange"
0 26 "." "Deprec"
13
8 8
0 27 8010
13
8 9
6 8
5 3
18 0
11 00000841
16 Report
16 FontDlg 4 0 0
16 CellEngine 0
16 GetFormats 0
6 3
15
9
14 DataChange
0 32 2
0 42 "{0}" 8000
13
5 1
4 0
8 5
0 42 "{0}" 8001
13
5 1
4 0
8 6
0 42 "{0}" 8002
13
5 100
4 1
8 7
16 CellEngine "@PMT({5},{7}/12,{6}*12)"
13
8 8
5 12
6 6
4 0
8 9
0 265 "Prefix"
13
0 265 "Suffix"
13
6 9
6 8
4 0
0 19 [X] [X] 2 [X]
13
8 10
0 265 "Prefix"
13
0 265 "Suffix"
13
0 19 [X] [X] 2 "{8}"
13
8 8
0 43 "{0}" 8010 "{8}"
0 43 "{0}" 8011 "{10}"
6 3
15
9
14 InitDlg
0 32 2
0 296 1
16 FontDlg 3 "{0}" 1000
16 FontDlg 3 "{0}" 1001
16 FontDlg 3 "{0}" 1004
16 FontDlg 3 "{0}" 1005
16 FontDlg 3 "{0}" 1006
16 FontDlg 3 "{0}" 8000
16 FontDlg 3 "{0}" 8001
16 FontDlg 3 "{0}" 8002
16 FontDlg 3 "{0}" 21
16 FontDlg 3 "{0}" 1007
16 FontDlg 3 "{0}" 1008
16 FontDlg 3 "{0}" 8010
16 FontDlg 3 "{0}" 8011
0 296 0
6 3
15
9
14 DisplayHelp
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HelpPack.hlp"
13
8 2
5 25
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 strpath
0 14 "{0}"
13
8 3
7 "\"
0 15 "{0}" "{3}" 1
13
0 805 &2 [X]
13
18 1
11 00000134
6 3
5 1
3 1
8 3
10 00000033
0 14 "{0}"
13
6 3
3 1
0 807 "{0}" [X]
13
8 4
6 3
5 1
3 1
0 806 "{0}" [X]
13
8 5
0 807 "{5}" 1
13
7 "\"
18 1
11 00000297
0 16 "{5}" "\"
13
8 5
6 5
15
9
6 1
15
9
14 GetFormats
0 286 "Intl" "iCurrency" "Win.ini"
13
8 2
0 286 "Intl" "sCurrency" "Win.ini"
13
8 3
0 271 "Prefix" 1
0 271 "Suffix" 1
5 1
6 0
18 0
11 00000496
5 0
6 2
18 0
11 00000233
6 3
8 4
7 ""
8 5
10 00000439
5 1
6 2
18 0
11 00000296
7 ""
8 4
6 3
8 5
10 00000439
5 2
6 2
18 0
11 00000374
0 16 "{3}" " "
13
8 4
7 ""
8 5
10 00000439
5 3
6 2
18 0
11 00000439
7 ""
8 4
0 16 " " "{3}"
13
8 5
0 264 "Suffix" "{5}"
0 264 "Prefix" "{4}"
10 00000557
5 0
6 0
18 0
11 00000557
0 266 "Suffix"
0 266 "Prefix"
6 1
15
9
14 CellEngine
0 802
13
8 5
0 16 "{5}" "hIstance"
13
8 6
0 798
13
8 7
5 1
6 0
18 0
11 00000446
0 297 "{7}LTSCE01.DLL" "CECreateInstance" "HO"
13
8 8
6 8
5 0
18 0
11 00000277
0 3 "LTSCE01.DLL not found. Copy the dll to your windows directory"
5 -1
15
9
0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &2
13
8 9
0 271 "{6}" 1
0 271 "{5}LibId" 1
0 264 "{5}Libid" "{8}"
0 264 "{6}" "{2}"
6 2
15
9
10 00000912
10 00000912
5 2
6 0
18 0
11 00000550
0 271 "{6}" 1
0 265 "{6}"
13
8 2
6 2
15
9
10 00000912
10 00000912
5 0
6 0
18 0
11 00000799
0 271 "{6}" 1
0 271 "{5}LibId" 1
0 265 "{6}"
13
8 2
0 265 "{5}LibId"
13
8 8
6 2
11 00000742
0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{2}"
0 298 "{8}"
0 266 "{6}"
0 266 "{5}LibId"
10 00000912
10 00000912
0 271 "{6}" 1
0 265 "{6}"
13
8 2
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{2}" "{0}" &3
6 3
15
9
10 00000912
6 1
15
9
14 FontDlg
5 1
6 0
18 0
11 00000255
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
0 271 "FontHandle" 1
6 4
11 00000217
0 264 "FontHandle" "{4}"
6 4
15
9
10 00000229
5 0
15
9
10 00000834
10 00000834
5 2
6 0
18 0
11 00000381
0 265 "FontHandle"
13
8 5
6 5
11 00000356
6 5
15
9
10 00000368
5 0
15
9
10 00000834
5 3
6 0
18 0
11 00000596
0 265 "FontHandle"
13
8 5
6 5
11 00000558
0 44 "{1}" "{2}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
5 1
15
9
10 00000570
5 0
15
9
10 00000834
10 00000834
5 4
6 0
18 0
11 00000785
0 265 "FontHandle"
13
8 5
6 5
11 00000730
0 284 "gdi,DeleteObject,HH" "{5}"
5 1
8 7
10 00000740
5 0
8 7
0 266 "FontHandle"
6 7
15
9
10 00000834
0 3 "Fontdlg received an invalid parameter {0}"
6 3
15
9
14 GetMarkValue
6 0
7 ""
18 0
11 00000059
6 0
15
9
0 1289 "If Defined {0} {0} Else 0"
13
8 2
6 2
11 00000270
0 1289 "{0}"
13
8 3
5 -1
0 13 1 "{3}" ">"
13
18 1
11 00000257
5 -1
0 20 "{3}" 2 ">"
13
0 805 &3 [X]
13
18 0
11 00000257
10 00000281
7 ""
8 3
6 3
15
9
6 1
15
9
14 Report
0 27 8001
13
5 1
4 0
8 1
0 27 8000
13
5 1
4 0
8 2
0 27 8002
13
8 3
0 27 8010
13
5 1
4 0
8 4
2 101 1 "_Mortgag.sty" 1 0
2 466 1 "Years" 4002
0 6 "{1}"
2 466 1 "MA" 4002
0 6 "{2}"
2 466 1 "IR" 4002
0 6 "{3}"
2 466 1 "PMT" 4002
0 6 "{4}"
0 6 "[40]"
6 0
15
9
DIALOG Deprec
-2134376448 16 58 30 165 107 "" "AmiDialog" "Calculate Mortgage Payment"
FONT 8 "Helv"
56 27 38 12 8000 1350631424 "edit" "" 0
56 41 38 12 8001 1350631424 "edit" "" 0
56 55 30 12 8002 1350631424 "edit" "" 0
120 5 40 14 1 1342373889 "button" "Done" 0
38 80 44 8 8010 1342177282 "static" "" 0
5 30 49 8 1004 1342177280 "static" "Mortgage amount:" 0
5 44 48 8 1005 1342177280 "static" "Number of years:" 0
5 58 40 8 1006 1342177280 "static" "Interest rate:" 0
5 5 111 21 1001 1342177280 "static" "" 0
5 69 82 33 20 1342308359 "button" "Payments" 0
88 57 6 10 1000 1342177280 "static" "%" 0
100 46 55 49 1003 1342177290 "static" "filename.bmt" 0
38 91 44 8 8011 1342177282 "static" "" 0
7 80 22 10 1007 1342177280 "static" "Monthly:" 0
7 91 22 10 1008 1342177280 "static" "Total:" 0
120 21 40 14 3 1342373888 "button" "Report" 0
00015577
